home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / turbovis / ptg120co.zip / BBSTRRES.PAS < prev    next >
Pascal/Delphi Source File  |  1993-11-06  |  2KB  |  20 lines
  1. (* This file was mangled by Mangler 1.13 (c) Copyright 1993 by Berend de Boer *)
  2.  {$IFDEF DPMI} {$X+,S-} {$ELSE} {$X+,F+,O+,R-,Q-} {$ENDIF} UNIT BBSTRRES ;INTERFACE USES OBJECTS ;
  3. CONST STRRESBUFSIZE :WORD =4096 ;STRINGS :PSTRINGLIST =NIL ;PROCEDURE LOADSTRINGS ;PROCEDURE DONESTRINGS ;FUNCTION RSGET
  4. (SKEY :WORD ):STRING ;FUNCTION RSGET1 (SKEY :WORD ;PARAM1 :LONGINT ):STRING ;FUNCTION RSGET2 (SKEY :WORD ;
  5. PARAM1 ,PARAM2:LONGINT ):STRING ;IMPLEMENTATION USES DOS , BBGUI , BBFILE , BBUTIL ;CONST O1lOIl0IIIIO:PRESOURCEFILE=NIL
  6. ;PROCEDURE LOADSTRINGS ;VAR OIOO:DIRSTR;OO0O:NAMESTR;OIOl:EXTSTR;BEGIN FSPLIT (PARAMSTR (0 ), OIOO , OO0O , OIOl );IF NOT
  7. FILEEXIST (OIOO + 'STRINGS.TVR')THEN BEGIN PRINTERROR ('File '+ OIOO + ' STRINGS.TVR could not be found.', 0 );HALT (1 );
  8. END ;O1lOIl0IIIIO := NEW (PRESOURCEFILE , INIT (NEW (PBUFSTREAM , INIT (OIOO + 'STRINGS.TVR', STOPENREAD , STRRESBUFSIZE
  9. ))));IF O1lOIl0IIIIO ^. STREAM ^. STATUS =STOK THEN STRINGS := PSTRINGLIST (O1lOIl0IIIIO ^. GET ('Strings'));
  10. CASE O1lOIl0IIIIO ^. STREAM ^. STATUS  OF STOK :EXIT ;STGETERROR :PRINTERROR
  11. ('TStringList not registered. Unable to load Strings from resource file STRINGS.TVR.', 0 );STINITERROR :PRINTERROR
  12. ('Cannot initialize stream. Unable to load Strings from resource file STRINGS.TVR.', 0 );ELSE PRINTERROR
  13. ('Unable to load Strings from resource file STRINGS.TVR.', 0 );END ;HALT (1 );END ;PROCEDURE DONESTRINGS ;BEGIN DISPOSE
  14. (STRINGS , DONE );DISPOSE (O1lOIl0IIIIO , DONE );STRINGS := NIL ;O1lOIl0IIIIO := NIL ;END ;FUNCTION RSGET
  15. (SKEY:WORD):STRING ;BEGIN RSGET := STRINGS ^. GET (SKEY );END ;FUNCTION RSGET1 (SKEY:WORD;PARAM1:LONGINT):STRING ;
  16. VAR OO1O:STRING ;OO01:LONGINT;BEGIN OO01 := PARAM1 ;FORMATSTR (OO1O , STRINGS ^. GET (SKEY ), OO01 );RSGET1 := OO1O ;
  17. END ;FUNCTION RSGET2 (SKEY:WORD;PARAM1,PARAM2:LONGINT):STRING ;VAR OO1O:STRING ;OO01:ARRAY [ 0 .. 1 ]  OF LONGINT;
  18. BEGIN OO01 [ 0 ] := PARAM1 ;OO01 [ 1 ] := PARAM2 ;FORMATSTR (OO1O , STRINGS ^. GET (SKEY ), OO01 );RSGET2 := OO1O ;END ;
  19. END .
  20.